home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 53 / Tiger_Disk_053_1998-08_Tiger-Crew-Disk_de_Side_B.d64 / parameter v1.2 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  118 lines
  1. 10 poke53280,11:poke53281,0:poke646,15
  2. 90 poke53272,23
  3. 100 ifq=0thenq=1:load"v1.2",8,1
  4. 110 ifq=1thenq=2:input"[147][203]oalaname ";n$:n$="?pic "+n$+"*":loadn$,8,1
  5. 130 print"[147]"tab(14)"[212][210][193][201][204][197][210] [214]1.2"
  6. 131 printtab(13)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  7. 140 printtab(8)"(c)by [212]he crusader c.i.c"
  8. 150 print""tab(8)"[208]ress [201] for [201]nformation"
  9. 151 printtab(19)"or"
  10. 152 printtab(7)"any other key to continue"
  11. 160 poke198,0:wait198,1:getg$
  12. 170 ifg$="i"thengoto2000
  13. 180 input"[147][206]ame of main-program ";n$
  14. 190 p=2331:l=len(n$):fori=1tol:pokep,asc(mid$(n$,i,1)):p=p+1:nexti:poke2286,l
  15. 200 input"[195]olor of greetings ";p
  16. 240 poke2360,p
  17. 250 input"backgroundcolor of greetings ";p
  18. 290 poke2437,p
  19. 300 input"bordercolor of greetings ";p
  20. 340 poke2133,p
  21. 350 print"[212]ext while loading [205]ain-program"
  22. 355 print"              now loading
  23. 360 [153]"    >                               <"
  24. 370 l[178]30:a[178]1589:[141]1000
  25. 380 p[178]2786:[129]i[178]a[164]a[170]l:[151]p,[194](i):p[178]p[170]1:[130]
  26. 400 [133] "load(NULL)ecret atnddress ";s
  27. 410 a[178][181](s[173]256):b[178]s[171]a[172]256
  28. 420 [151]2308,a:[151]2307,b
  29. 430 [133]"(NULL)ecret byte ";s
  30. 440 [151] 2305,s
  31. 450 [133]"atnddress of load-routine ";s
  32. 460 a[178][181](s[173]256):b[178]s[171]a[172]256
  33. 470 [151]2269,a:[151]2268,b:[151]2277,a:[151]2276,b
  34. 480 [153]"(NULL)he way of starting the main-program"
  35. 490 [153]"    1 - (NULL)(NULL)(NULL)     or    2 - mid$(NULL)(NULL) adr."
  36. 500 [151]198,0:[146]198,1:[161]g$
  37. 510 [139]g$[178]"1"[167]560
  38. 520 [139]g$[179][177]"2"[167]500
  39. 530 [133]"the address ";s
  40. 540 a[178][181](s[173]256):b[178]s[171]a[172]256
  41. 550 [151]2309,76:[151]2311,a:[151]2310,b
  42. 560 [133]"load(NULL)ame of loader ";n$
  43. 570 p[178]49221:l[178][195](n$):[129]i[178]1[164]l:[151]p,[198]([202](n$,i,1)):p[178]p[170]1:[130]:[151]49193,l
  44. 580 [153]"atnnd now enter the greetings."
  45. 590 [153]"(NULL)lease greet c.i.c if you use this"
  46. 600 [153]"fine little program."
  47. 610 a[178]1385:l[178]213:[151]a[171]1,62:[151]a[170]l[170]1,60:[141]1000
  48. 620 p[178]2562:[129]i[178]a[164]aa:[151]p,[194](i):p[178]p[170]1:[130]:[151]2549,aa[171]a
  49. 630 [153]"load      (NULL)he loader is ready to save"
  50. 640 [153]"              (NULL)ress any key
  51. 650 poke198,0:wait198,1:getg$
  52. 660 sys49152
  53. 1000 rem a:bildadresse, l:max laenge
  54. 1010 aa=a:ll=l
  55. 1015 pokeaa,100
  56. 1030 poke198,0:wait198,1:p=peek(631):getg$
  57. 1040 ifp=13thenpokeaa,32:return
  58. 1050 ifp=157orp=20thenpokeaa,32:aa=aa-1:goto1090
  59. 1060 ifp=147orp=19orp=148orp=17orp=145orp=29then1030
  60. 1070 ifaa<l+athenprint"[144]"g$"[155]":pokeaa,peek(1024):aa=aa+1
  61. 1080 goto1015
  62. 1090 ifaa<athenaa=a
  63. 1100 goto1015
  64. 2000 print"[147] [201]nformation about [212][210][193][201][204][197][210][160][214]1.2"
  65. 2010 print"[212]his program is made for people who"
  66. 2020 print"don't have any time to create their"
  67. 2040 print"own loader to load programs."
  68. 2050 print"[212]his program was really written
  69. 2060 [153]"by c.i.c. right$'m happy about everyone"
  70. 2070 [153]"who greets me if she/he use the program"
  71. 2080 [141]3000
  72. 2100 [153]"load (NULL)ow the explanation
  73. 2110 print"[198]irst you have to enter the name"
  74. 2120 print"of the [203][207][193][204][193]-picture to show."
  75. 2130 print"[206]ame of main-program : is the name of"
  76. 2140 print"the program which will be loaded"
  77. 2150 print"by the loader."
  78. 2160 print"[193]t the bottom of the screen are"
  79. 2170 print"the greetings. [217]ou can choose the"
  80. 2180 print"color of the"
  81. 2190 print"[212]ext , [194]ackground and [194]order"
  82. 2200 gosub 3000
  83. 2210 print"[147][215]hile the main-program is loading"
  84. 2220 print"there's a text on your screen."
  85. 2230 print"[212]his text will be shown in the same"
  86. 2240 print"format as your input."
  87. 2250 gosub 3000
  88. 2260 print"[147][212]he secret address could be an addess"
  89. 2270 print"in the main-program."
  90. 2280 print"[212]he secrete byte is the byte of this"
  91. 2290 print"address."
  92. 2300 print"[193]fter loading the main-program the"
  93. 2310 print"byte will be poked in the address."
  94. 2320 print"[217]ou could use this to [210][213][206] the"
  95. 2330 print"main-program only with your loader."
  96. 2340 print"[194]ecause without the secret byte the"
  97. 2350 print"main-program kills."
  98. 2360 gosub3000
  99. 2370 print"[147][212]he address of the load-routine."
  100. 2380 print"[201]t could be that the main-program"
  101. 2390 print"has the same memory as the load-routine"
  102. 2400 print"so you can choose this address by"
  103. 2410 print"your own."
  104. 2420 print"[199]eneral it's 828 or 256."
  105. 2430 gosub3000
  106. 2440 print"[147][217]ou can choose the way of starting"
  107. 2450 print"the main-program."
  108. 2455 print"  [210]un or [202][205][208]"
  109. 2460 print"[206]ame of loader  : is the name of"
  110. 2470 print"your loader , this loader needs"
  111. 2480 print"43 [194]locks."
  112. 2490 print"[217]ou can use 213 signs in the [199]reetings"
  113. 2510 print"":gosub3000:goto130
  114. 2999 end
  115. 3000 print"       [208]ress any key to continue"
  116. 3010 poke198,0:wait198,1:getg$
  117. 3020 return
  118.